home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Win95 Start Menu 1.xpl < prev    next >
Text File  |  2002-01-01  |  3KB  |  119 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="9"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Start menu\Windows 95"
  5. "NAME"="Visible Items"
  6. "VERSION"="2.03"
  7. "LANGUAGE"="VBScript"
  8. "OSVERSION"="101"
  9. "TEXT 1"="Aha! You can't see this!"
  10. "DESCRIPTION 1"="Use this plug-in to show or hide some of the items in the Start menu."
  11. "DESCRIPTION 2"="NOTE #1: It can happen that if you disable the "Run..." command, you can no longer use the address bar of Internet Explorer. This seems to be a bug inside IE."
  12. "DESCRIPTION 3"="NOTE #2: Disabling "Find..." may also disable the context menu (Right-click) of the START button."
  13. "DESCRIPTION 4"="NOTE #3: Show "Log Off <username>" might not work if IE 5 is installed. Also, disabling this option will disable the SHUTDOWN button in the CTRL+ALT+DEL menu.
  14. "DESCRIPTION 5"="NOTE #4: Hiding the 'Suspend' command in Windows 95 affects all users."
  15. "AUTHOR"="Xteq Systems (Neil R. Turner)"
  16. "CONTACTURL"="http://www.xteq.com/"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"="Thanks to Joe [gojoecollier@naxs.net] for the "Run might kill IE" bug notice!"
  19. "COMMENT 2"="Thanks to Bill Hudacek [hudacek@us.ibm.com] for spotting the NoFind = NoRightMouse bug."
  20. "COMMENT 3"="Thanks to WinGuides.com for the Suspend item!"
  21.  
  22.  
  23. sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
  24. sV1=sP & "NoFavoritesMenu"
  25. sV2=sP & "NoRecentDocsMenu"
  26. sV3=sP & "NoRun"
  27. sV4=sP & "NoClose"
  28. sV5=sP & "NoFind"
  29. sV6=sP & "NoLogOff" 'Binary in W9x!
  30.  
  31. sV7="HKLM\Enum\Root\*PNP0C05\0000\APMMenuSuspend" ' Binary - affects all users(!)
  32.  
  33.  
  34. SUB Plugin_Initialize
  35.  Call SetUIElement(1,"Favorites")
  36.  Call ReadIt(1,sV1)
  37.  
  38.  Call SetUIElement(2,"Documents")
  39.  Call ReadIt(2,sV2)
  40.  
  41.  Call SetUIElement(3,"Run...")
  42.  Call ReadIt(3,sV3)
  43.  
  44.  Call SetUIElement(4,"Shut Down...")
  45.  Call ReadIt(4,sV4)
  46.  
  47.  Call SetUIElement(5,"Find") 
  48.  Call ReadIt(5,sV5)
  49.  
  50.  Call SetUIElement(6,"Log Off <username>...")
  51.  'Call ReadIt(6,sV6)
  52.  i=RegReadValue(sV6) 'Binary
  53.  if IsEmpty(i)=true or i="00000000" then
  54.     Call SetUIElementEx(6,true)
  55.  end if
  56.  
  57.  Call SetUIElement(7,"Suspend")
  58.  i=RegReadValue(sV7) ' Binary
  59.  if i=01 then
  60.     Call SetUIElementEx(7,true)
  61.  end if
  62.  
  63.  
  64. END SUB
  65.  
  66. 'Called when the Plugin should apply the changes
  67. SUB Plugin_Apply(ElementIndex,ElementSubIndex) 
  68.  Call WriteIt(1,sV1)
  69.  Call WriteIt(2,sV2)
  70.  Call WriteIt(3,sV3)
  71.  Call WriteIt(4,sV4)
  72.  Call WriteIt(5,sV5)
  73.  
  74.  if GetUIElementEx(6)=true then
  75.     If RegPathExists(sV6) then Call RegDeleteValue(sV6)
  76.  else
  77.     Call RegWriteValue(sV6,"01000000",3)
  78.  end if
  79.  
  80.  if GetUIElementEx(7)=true then
  81.     Call RegWriteValue(sV7,"01",3)
  82.  else
  83.     Call RegWriteValue(sV7,"00",3)
  84.  end if
  85.  
  86.  
  87.  Call IndicateSettingChange()
  88. END SUB
  89.  
  90. Sub ReadIt(ITM,PATH1)
  91.  if RegValueExists(PATH1)=false then 'setting available?
  92.     'no setting -> item visible
  93.     Call SetUIElementEx(ITM,true)
  94.  else
  95.     i=RegReadValue(PATH1)
  96.     if i=0 then 
  97.        Call SetUIElementEx(ITM,true)
  98.     end if
  99.  end if
  100.  
  101. End Sub
  102.  
  103. Sub WriteIt(ITM,PATH1)
  104.  b=GetUIElementEx(ITM)
  105.  if b=true then
  106.  
  107.     s=RegReadValue(PATH1)
  108.     if IsEmpty(s)=false then
  109.        Call RegDeleteValue(PATH1)
  110.     end if
  111.  
  112.  else
  113.     Call RegWriteValue(PATH1,1,2)
  114.  end if
  115. End Sub
  116.  
  117. SUB Plugin_Terminate
  118. END SUB
  119.